home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Explorer Options 5.xpl < prev    next >
Text File  |  2001-10-22  |  2KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Explorer\Settings"
  5. "NAME"="File Types Tab"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow changes in "File Types" tab (Current User)"
  9. "TEXT 2"="Allow changes in "File Types" tab (All Users)"
  10. "DESCRIPTION 1"="This settings controls the ability of the Tools -> Folder Options -> "File Types" tab inside Explorer. This tab is used to control which files are opened with which applications."
  11. "DESCRIPTION 2"="The first option (if deactivated) does not allow changes inside "File Types" for the currently logged on user."
  12. "DESCRIPTION 3"="The second option (if deactivated) does not allow changes inside "File Types" for ANY user logged on this PC."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="found at Win2000mag.com - David Chernicoff, david@win2000mag.com"
  17. "OSVERSION"="010111"
  18.  
  19.  
  20. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate"
  21. sV2="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate"
  22.  
  23.  
  24. Sub Plugin_Initialize 
  25.  i=RegReadValue(sV1)
  26.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  27.  
  28.  i=RegReadValue(sV2)
  29.  If IsEmpty(i) or i=0 then SetUIElement 2,true
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  b=GetUIElement(1)
  37.  if b=true then
  38.     if RegValueExists(sV1) then
  39.        Call RegDeleteValue(sv1)
  40.     end if
  41.  else
  42.     Call RegWriteValue(sV1,1,2)
  43.  end if
  44.  
  45.  b=GetUIElement(2)
  46.  if b=true then
  47.     if RegValueExists(sV2) then
  48.        Call RegDeleteValue(sv2)
  49.     end if
  50.  else
  51.     Call RegWriteValue(sV2,1,2)
  52.  end if
  53.  
  54.  
  55.  Call IndicateSettingChange()
  56. End Sub
  57.  
  58. Sub Plugin_Terminate 
  59. End Sub
  60.